home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xdmetex.lha / rexx / Print_TeX.xdme < prev    next >
Text File  |  1995-09-07  |  1KB  |  34 lines
  1. /* TeX-File von DME aus drucken                               */
  2. /*                                                            */
  3. /* (c) 1995 Helmut Kindler        $VER Print_TeX 1.1 (7.9.95) */                        
  4.  
  5. parse ARG file
  6.  
  7. /* Zu benutzender Druckertreiber */
  8. drucker = 'dviddj -qh' 
  9.  
  10. /* rexxsupport.library öffnen [wegen delay()] */
  11. if ~show('l', "rexxsupport.library") then do
  12.     check = addlib('rexxsupport.library',0,-30,0)
  13.     if check = 0 then do
  14.         'title' '(Fehler: Kann die rexxsupport.library nicht einbinden !!)'
  15.         address COMMAND wait 2
  16.         exit
  17.     end
  18. end
  19.  
  20. /* eine kleine Überprüfung */
  21. if upper(right(file,4)) ~= '.TEX' then do
  22.         'title' '(Print_TeX braucht "*.tex"-Files,' file ' geht nicht!)'
  23.         call delay(100)
  24.     end
  25. else do
  26.     /* '.tex' abschneiden */
  27.     file = left(file,length(file)-4)
  28.     /* Eine kleine Meldung absetzen */
  29.     'title' '(Rufe dviddj mit Filenamen' file ')'
  30.     /* Druckertreiber im Hintergrund starten */
  31.     address command 'run >con:///150/dviddj/close' drucker '-o par:' file
  32.     call delay(100)
  33. end
  34.